module param
  implicit none
  integer,parameter :: dbl=8
  integer,parameter :: len_fn=20
  ! pi
  real(dbl) :: pi=3.14159265
  ! Planck constant (eV*sec)
  real(dbl) :: ph=4.13566733d-15
  ! Bohr radius (m)
  real(dbl) :: a0=5.29177d-11
  ! Bohr velocity (m/s)
  real(dbl) :: v0=2.2d+6
  ! Speed of light
  real(dbl) :: c=2.99792458d+8
end module param
